home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / TRACEY.for < prev   
Text File  |  1991-04-13  |  508b  |  20 lines
  1.         SUBROUTINE TRACEY(XMIN,XMAX,Y,NPTS)
  2.     IMPLICIT NONE
  3.     REAL*4 XMIN,XMAX,VX,VY,XINC,X
  4.     INTEGER NPTS,I
  5. C
  6. C       THIS SUBROUTINE IS USED TO PLOT DATA ON THE SCREEN AS
  7. C       A CONTINOUS LINE, GIVEN ONLY THE Y ARRAY AND XMIN AND XMAX.
  8. C
  9.         REAL*4 Y(2)
  10.         CALL SCALE(XMIN,Y(1),VX,VY)
  11.         CALL GSMOVE(VX,VY)
  12.         XINC = (XMAX-XMIN)/(NPTS-1)
  13.         X = XMIN
  14.         DO 100 I=2,NPTS
  15.         X = X + XINC
  16.         CALL SCALE(X,Y(I),VX,VY)
  17. 100     CALL GSDRAW(VX,VY)
  18.         RETURN
  19.         END
  20.